home *** CD-ROM | disk | FTP | other *** search
- WITH Ada.Text_IO, VT100, My_Int_IO;
- USE Ada.Text_IO, VT100, My_Int_IO;
-
- PROCEDURE Codes IS
- BEGIN
- FOR I IN 0 .. 255 LOOP
- Put(I,3,10);
- Put(" ");
- IF (I >= 7 AND I <= 13) OR (I >= 26 AND I <= 27) THEN
- Put(" ");
- ELSE
- Put(character'val(I));
- END IF;
- Put(" ");
- END LOOP;
- New_Line;
- END Codes;
-